program fortrantest !<<<<< 1,1,pass

print *, "Main program!"

end program fortrantest

subroutine do_stuff

	print *,"Hi!"

end subroutine